function actualizaListBoxAgrupados(singularidades,listbox,Colores)
     str='';
     if ~isempty(singularidades)
        str='Polo1=';
        str=strcat(str,num2str(singularidades(1).polos1));
        str=strcat(str,' Polo2=');
        str=strcat(str,num2str(singularidades(1).polos2));
        str=strcat(str,' Cero1=');
        str=strcat(str,num2str(singularidades(1).zeros1));
        str=strcat(str,' Cero2=');
        str=strcat(str,num2str(singularidades(1).zeros2));
        stra1 = sprintf('#%02X%02X%02X', round(Colores(1,1)*255), round(Colores(1,2)*255), round(Colores(1,3)*255));
        str=strcat('<HTML><BODY bgcolor="',stra1,'" width="900">',str,'</BODY></HTML>');
        
        for k=2:length(singularidades)
            straux='Polo1=';
            straux=strcat(straux,num2str(singularidades(k).polos1));
            straux=strcat(straux,' Polo2=');
            straux=strcat(straux,num2str(singularidades(k).polos2));
            straux=strcat(straux,' Cero1=');
            straux=strcat(straux,num2str(singularidades(k).zeros1));
            straux=strcat(straux,' Cero2=');
            straux=strcat(straux,num2str(singularidades(k).zeros2));
            stra1 = sprintf('#%02X%02X%02X', round(Colores(k,1)*255), round(Colores(k,2)*255), round(Colores(k,3)*255));
            straux=strcat('<HTML><BODY bgcolor="',stra1,'" width="900">',straux,'</BODY></HTML>');
           
            str=strvcat(str,straux);
        end
         
     end
    set(listbox,'String','');       
    set(listbox,'Value',1);           
    set(listbox,'String',str);


end